home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / IBMBP.TXT < prev    next >
Text File  |  1991-08-20  |  3KB  |  182 lines
  1. ;
  2. ;  IBMBP -- ibm bp module
  3. ;        (c) Copyright 1990 Chris Butler
  4. ;
  5. ;        uses clipping buffers 1 2 3 4
  6. ;
  7.  
  8.   set allpsdi off
  9.   goto top
  10. all:
  11.   set allpsdi on
  12. top:
  13.  
  14. video g     ; 640X350 16/64
  15.  
  16. pnewbuf 1
  17. psetbuf 1
  18. color 9
  19. clearscr
  20. psetbuf
  21. pfade 22 1
  22.  
  23. cload bptxt1.clp 1 1 0
  24. cfade 1 144,300 1 100
  25. waitkey 100
  26.  
  27. set i 1
  28. cload test3.clp 1 1 0
  29. putup 208,150 1
  30. waitkey 50
  31.  
  32. cload test4 1 1 0
  33. dload bpdff.dff 1
  34. set xor on
  35. putdff 1 5 1 32 208,150
  36. set xor off
  37. waitkey 10
  38. putup 208,150 1
  39. dfree 1
  40.  
  41. waitkey 100
  42. cload bptxt1a 1 1 0
  43. cfade 9 61,10 1
  44. waitkey 200
  45. note  100 10 10
  46. waitkey 500
  47.  
  48.  
  49. clearscr
  50. chgcolor 0 7
  51. chgcolor 15 57
  52. chgcolor 13 0
  53.  
  54. ; make tiled backdrop
  55.  
  56. setpage 0 1
  57. color 15
  58. clearscr
  59. cload ibmbpa.clp 3 0 0
  60. tile 3 0
  61. revpage
  62. color 15
  63. clearscr
  64. tile 3 0
  65. revpage
  66. waitkey 100
  67. tran on 15
  68. cload bptxt2.clp  4 1 1
  69. putup 24,290 4
  70. revpage
  71. putup 24,290 4
  72. waitkey 100
  73.  
  74. ; PRINTER
  75.  
  76. tran on 15
  77. cload prntrtxt.clp 1 1 1
  78. putup 40,50 1
  79. revpage
  80. putup 40,50 1
  81.  
  82. cload printera.clp 1 1 1
  83. float 376 350 376 106 10 1 1 ; xyxy step delay buf
  84. cload printerc.clp 2 1 0
  85. setpage
  86. cfade 20 376,106 2    ; bring up filled printer
  87. note 100 10 10
  88. WAITKEY 300
  89. setpage 0 1
  90. float 376 106 376 -252 10 1 1 ; xyxy step delay buf
  91. tile 3 0        ; clear to titled tiled screen
  92. putup 24,290 4
  93. revpage
  94. tile 3 0
  95. putup 24,290 4
  96. revpage
  97.  
  98. ; PS/2 
  99.  
  100. tran on 15
  101. cload ps2txt.clp 1 1 1
  102. putup 32,22 1
  103. revpage
  104. putup 32,22 1
  105. waitkey 100
  106.  
  107. cload ps2a.clp 1 1 1
  108. float 384 350 384 88 10 1 1 ; xyxy step delay buf
  109. cload ps2b.clp 2 1 0
  110. setpage
  111. putup 384,88 1
  112. cfade 20 384,88 2    ; bring up filled ps2
  113. note 100 10 10 
  114. WAITKEY 300
  115. setpage 0 1
  116. float 384 88 384 -252 10 1 1 ; xyxy step delay buf
  117. tile 3 0        ; clear to titled tiled screen
  118. putup 24,290 4
  119. revpage
  120. tile 3 0
  121. putup 24,290 4
  122. revpage
  123.  
  124. ; SERVMAN    
  125.  
  126. tran on 15
  127. cload servtxt.clp 1 1 1
  128. putup 40,34 1
  129. revpage
  130. putup 40,34 1
  131. chgcolor 2 63 ; white shirt
  132.  
  133. cload servmanb.clp 1 1 1
  134. float 464 350 464 96 10 1 1 ; xyxy step delay buf
  135. tran on 15 ; 
  136. cload servmanc.clp 2 1 0
  137. setpage
  138. cfade 20 464,96 2    ; bring up filled servman
  139. note 100 10 10
  140. waitkey 300
  141. setpage 0 1
  142. float 464 96 464 -252 10 1 1 ; xyxy step delay buf
  143. tile 3 0        ; clear to titled tiled screen
  144. revpage
  145. setpage 1 1 
  146.  
  147. ; CLOSE 
  148. cfree 1 2 3 4
  149.  
  150. tran on 15
  151. cload bptxt3.clp 1 1 1
  152. cload printerc.clp 2 1 0
  153. cload ps2b.clp 3 1 0
  154. cload servmanc.clp 4 1 0
  155. cload bptxt4.clp 5 1 1
  156.  
  157. putup 48,290 1 
  158. waitkey 100
  159. color 15
  160. rect 0 94 639 270
  161. waitkey 50
  162. cfade 20 8 100 2 100
  163. waitkey 30
  164. cfade 20 264 90 3 100
  165. waitkey 30
  166. cfade 20 496 84 4 100
  167. waitkey 100
  168. putup 80,20 5
  169. waitkey 150
  170. noise  500 10 70
  171. waitkey 400
  172. cfree 1 2 3 4 5
  173. pfree 1
  174.  
  175. video m
  176. if @allpsdi==on linkit
  177.   link master.txt entry_3
  178. linkit:
  179.   link support.txt all
  180. ;  (SUBR IBMBP)
  181.  
  182.